home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #2 / Floppy_Magazine_86-2_1986_Megasystems_Oy_fi.d64 / merkki-maker 2.3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  183 lines
  1. 0 onn+1goto1000,1060,400:rem"[141]
  2. 1 [129]r[178](([194](cb)[175]a6)[170]a8)[172]k1[170]p[172]a8[164]r[170]a7:q[178][194](r):[129]w[178]a7[164]0[169][171]1
  3. 2 [151]z,b3[171]((q[175]p(w))[178]p(w))[172]b1:z[178]z[170]a1:[130]:z[178]z[170]b3:[130]:[142]
  4. 3 [143]"gosubsys
  5. 4 print""p"[157]  ":r=pand127:print""a%(r)"[157]   ":t$="  [146][146]"
  6. 5 ifr>95thent$=" c":goto7
  7. 6 ifr>63thent$=" s"
  8. 7 ifp>127thent$="[151]r[146]"+right$(t$,3)
  9. 8 print""t$:poke1588,p:poke1152,p%(n%(r)):return
  10. 9 rem"[141]
  11. 10 [161]t$:[139]t$[178]""[167][151]v2,[171](([194](162)[175]16)[178]0):[141]4:[137]10
  12. 12 [139]t$[178]""[167]x[178](x[170]1)[175]31:[137]44
  13. 14 [139]t$[178]"cmd"[167]x[178](x[171]1)[175]31:[137]44
  14. 16 [139]t$[178]""[167]y[178](y[170]1)[175]7 :[137]44
  15. 18 [139]t$[178]"on"[167]y[178](y[171]1)[175]7 :[137]44
  16. 20 [139]t$[178][199](13)[167]55
  17. 22 [139]t$[178]"_"[167]r[178]53281:w[178]14:[158]65409:[151]r,w:[158]65418:[158]65412:[137]1200
  18. 24 [139]t$[178]"r"[167]r[178]16432:[151]r,0:[146]197,64:[151]r,8:[151]198,0
  19. 26 [139]t$[179][177]"n"[176]y[177]3[167]28
  20. 27 [129]r[178](([194](cb)[175]a6)[170]a8)[172]k1[170]p[172]a8[164]r[170]a7:[151]r[170]k1,b2[171][194](r):[130]:[137]10
  21. 28 [139]t$[178]"input"[167]650
  22. 30 [139]t$[178]" "[167]q[178]0:[129]r[178](([194](cb)[175]a6)[170]a8)[172]k1[170]p[172]a8[164]r[170]a7:[151]r,t%(q):q[178]q[170]a1:[130]
  23. 32 [139]t$[178]"l"[167]230
  24. 34 [139]t$[178]"s"[167]250
  25. 36 [139]t$[178]"e"[167][158]65409:[158]65418:[158]65412:[153]" end.":[128]
  26. 40 [137]10:[143]"gosubsys
  27. 44 r=x*a8+b5:pokev,randb2:pokev1,-(r>b2):pokev+a1,y*a8+c1:p=y*b3+x:goto10
  28. 55 pokev2,0:gett$:ift$then55
  29. 56 pokev+21,peek(162)and1:gett$:ift$=""then56
  30. 57 r=asc(t$):ifr=255thenr=126
  31. 58 ifr>223thenr=r-64
  32. 59 ifr>191thenr=r-96
  33. 65 r=o%(r):x=rand31:y=int(r/b3)
  34. 66 pokev+21,1:wait197,64:poke198,0:goto44
  35. 229 rem"[141]
  36. 230 [141]300:[153]"    haetaan merkkitiedosto.anna nimi
  37. 240 a$="":input"    ";a$:n=2:ifa$=""then400
  38. 246 poke16432,0:loada$,8,1
  39. 249 rem"[141][158]
  40. 250 [141]300:[153]"    talletetaan merkit levylle.
  41. 251 print"    '1' ;12-14 k [205][197][210][203][201][212]":print"    '2' ;14-16 k merkit
  42. 252 [153]"    '3' ;molemmat":[151]198,0
  43. 253 [161]t$:t[178][197](t$):[139]t[179]1[176]t[177]3[167]253
  44. 254 ao[178]48[171]8[172](t[178]2):lo[178]56[171]8[172](t[177]1):[141]300:[153]"    anna nimi"
  45. 255 n$[178]"":[133]"    ";n$:[139]n$[178]""[167]400
  46. 256 w[178][195](n$):[139]w[179]1[176]w[177]16[167]250
  47. 257 ni$[178]"0:"[170]n$:[159]15,8,15,"s"[170]ni$:[160]15:w[178]w[170]2
  48. 260 t$[178]ni$:r[178][194](53)[170][194](54)[172]256[171]w:[151]782,r[173]256
  49. 261 [151]781,r[171][194](782)[172]256:[151]780,w:[158]65469
  50. 262 [151]780,1:[151]781,8:[151]782,1:[158]65466
  51. 263 [151]254,ao:[151]253,0:[151]780,253:[151]782,lo:[151]781,0
  52. 296 [158]65496
  53. 297 [151]16432,0:[137]400
  54. 299 [143]"gosub
  55. 300 pokev+21,0:print"":forr=1to4
  56. 302 print"                                      ":next:print"[145][145][145][145][145]":return
  57. 399 rem"[141][158]
  58. 400 [141]300:[153][163]17)"pokestep(NULL)(NULL)step
  59. 401 printtab(17)"f1f7
  60. 402 [153][163]17)"step(NULL)(NULL)step
  61. 404 poke16432,8:pokev+21,1:goto44
  62. 549 rem"[141][159]
  63. 650 [151]v2,a1:z[178]1080:[141]1:xx[178]0:yy[178]0:[151]v[170]21,0:[151]v1,0:[151]v[170]39,15
  64. 655 r[178]xx[172]a8[170]d1:[151]v,r[175]b2:[151]v[170]1,yy[172]a8[170]d5:pp[178]yy[172]d4[170]xx[170]kl:[151]v[170]21,1
  65. 670 [161]t$:[139]t$[178]""[167][151]v2,[171](([194](162)[175]16)[178]0):[137]655
  66. 672 [139]t$[178]""[167]xx[178](xx[170]1)[175]7:[137]655
  67. 674 [139]t$[178]"cmd"[167]xx[178](xx[171]1)[175]7:[137]655
  68. 676 [139]t$[178]""[167]yy[178](yy[170]1)[175]7:[137]655
  69. 678 [139]t$[178]"on"[167]yy[178](yy[171]1)[175]7:[137]655
  70. 680 [139]t$[178]" "[167][151]pp,([194](pp)[170]b1)[175]b2:[137]655
  71. 682 [139]t$[178]"n"[167][129]r[178]kl[164]1360[169]d4:[129]w[178]0[164]a7:[151]r[170]w,([194](r[170]w)[170]b1)[175]b2:[130]:[130]
  72. 684 [139]t$[178]"let"[167][151]v[170]21,0:[137]787
  73. 688 [139]t$[179][177]"+"[167]692
  74. 689 [129]r[178]1084[164]1364[169]40:[129]w[178].5[164]3.5:q[178][194](r[170]w):[151]r[170]w,[194](r[171]w):[151]r[171]w,q
  75. 690 [130]:[130]
  76. 692 [139]t$[179][177]"-"[167]700
  77. 693 [129]r[178]1240[164]1247:[129]w[178]0[164]120[169]40:q[178][194](r[170]w)
  78. 694 [151]r[170]w,[194](r[171]w[171]d4):[151]r[171]w[171]d4,q:[130]:[130]
  79. 700 [143]
  80. 777 [137]655:[143]"gosub
  81. 787 q=0:pokev+39,6:pokev2,1:foryy=1080to1360stepd4:t%(q)=0:forxx=0toa7
  82. 788 t%(q)=t%(q)-p(7-xx)*(peek(yy+xx)=cr):next:q=q+a1:next:pokev+21,1:goto44
  83. 998 rem"[141][158]
  84. 999 [143] : video & editor -ini : colors          : vector & irq -ini : sid-ini  :
  85. 1000 [151]56,47:[156]:a[178]53265:b[178]11:[158]65409:[151]a,b:[158]65418:[158]65412:[156]
  86. 1002 [153]"loadreturn    (NULL)=right$=tanortanright$= == ==   (NULL)=right$(NULL)tanright$= ==tanortanright$
  87. 1004 print"    [221][221][221][221] [221] [221][221][213][203][221][213][203][221]   [221][221][221][221] [221][221][213][203][221] [221] [221]
  88. 1006 [153]"    (NULL)(NULL)(NULL)-<-=(NULL)-< -< (NULL) tan (NULL)(NULL)(NULL)-tan<-< -<-=(NULL)
  89. 1008 print"    [221] [221][221] [221][202][201][221][202][201][221][202][201][221]   [221] [221][221] [221][221][202][201][221] [221][202][201]
  90. 1010 [153]"    > >>tan> >> >> >>   > >> >> >>tan> >
  91. 1020 print"ram-merkkien tekemiseen muistiin 12-16 k                  [155]v2.3
  92. 1022 [153]"    jose gronstrand 02.08.1984 espoo
  93. 1024 print"  [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]
  94. 1050 [151]53281,14:[151]53265,27
  95. 1055 n[178]1:[129]r[178]16384[164]r[170]9:z[178]z[170][194](r):[130]:[139]z[179][177]1154[167][141]2200
  96. 1060 [156]:[134]p%(64):w[178]16488:[129]r[178]0[164]64:p%(r)[178][194](w[170]r):[130]
  97. 1061 [153]"on  pospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos
  98. 1070 dima%(127):forr=0to31:a%(r)=r+64:a%(r+96)=r+160:next
  99. 1072 forr=32to63:a%(r)=r:next:forr=64to95:a%(r)=r+32:next
  100. 1073 print"[145]  [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
  101. 1074 [134]n%(127):w[178]16555:[129]r[178]0[164]127:n%(r)[178][194](w[170]r):[130]
  102. 1075 [153]"on  totototototototototototototototototototototototototototototototototototo
  103. 1076 dimo%(191):forr=0to127:o%(a%(r))=r:next
  104. 1077 print"[145]                                      [145]
  105. 1080 v[178]53248:v1[178]v[170]16:v2[178]v[170]27:[151]2040,13:[134]t%(7):a1[178]1
  106. 1082 cb[178]53272:a6[178]6:a8[178]8:k1[178]1024:a7[178]7:b3[178]32:b1[178]128:[129]r[178]0[164]7:p(r)[178]2[174]r:[130]
  107. 1090 x[178]0:y[178]0:b2[178]255:b5[178]56:c1[178]186:d1[178]152:d5[178]58:d4[178]40:kl[178]1080:cr[178]160
  108. 1153 :
  109. 1154 :
  110. 1160 [129]r[178]832[164]r[170]62:[151]r,0:[130]:w[178]255:[129]r[178]832[164]r[170]21[169]3:[151]r,w:[130]
  111. 1174 c$[178]"stoppokeprint#listlistprint#poke":r[178]0:[151]198,0
  112. 1177 [153][202](c$,r[170]1,1)"  paina jotain ; 'o' jos haluat ohjeeton":r[178](r[170]1)[175]7
  113. 1180 [161]t$:[139]t$[178]""[167]1177
  114. 1182 [139]t$[179][177]"o"[167]1400:[143]"gosub
  115. 1200 print"[147]
  116. 1202 [153]"totototo   haku/pano komennot:abs
  117. 1204 print"[195][210][211][210][146] ;kursorin liikutus
  118. 1206 [153]"f1wait   ;siirra merkki editoriin
  119. 1208 print"[183][183][183][183][146] ;sijoitetaan editoitu merkki
  120. 1209 [153]"len=shiwait;kytkee 12k-(NULL)val(NULL)(NULL)right$(NULL) / 14k-merkit
  121. 1210 print"[206][146]    ;tee merkin negatiivimerkki
  122. 1212 [153]"(NULL)wait    ;(NULL)atn(NULL)val talleta merkit levylle
  123. 1214 print"[204][146]    ;[204][207][193][196] haetaan merkit levylta
  124. 1216 [153]"_wait    ;komento-ohjeet esiin (nama)
  125. 1217 print"[197][146]    ;[197][206][196] lopetus
  126. 1218 [153]"(NULL)waittoto  ;(NULL)(NULL)(NULL)-merkit vertailtavaksi
  127. 1220 print"ret[146]  ;osoita merkki, joka saadaan
  128. 1222 [153]"      nappaimistolta seuraavasti...
  129. 1224 print"[164][164][164][164]   editor komennot:[182]
  130. 1226 [153]"len(NULL)(NULL)(NULL)wait ;kursorin liikutus
  131. 1228 print"[183][183][183][183][146] ;vaihda kursorin alainen bitti
  132. 1230 [153]"(NULL)wait    ;muuta merkki negatiiviseksi
  133. 1232 print"+[146]    ;peilaa merkki (pystyakseli)
  134. 1234 [153]"-waitto   ;peilaa merkki (vaakaakseli)
  135. 1236 print"f7[146]   ;poistu editorista
  136. 1250 [153]"to      jos painat nyt:abs
  137. 1252 print"1[146]    ;tuodaan [210][207][205] merkit alas
  138. 1254 [153]"2wait    ;tuodaan rom merkit alas
  139. 1290 print"";:r=0:poke198,0
  140. 1292 printmid$(c$,r+1,1)"      [208][193][201][206][193] [202][207][212][193][201][206][145]":r=(r+1)and7
  141. 1294 gett$:ift$=""then1292
  142. 1295 ift$="1"thenpoke251,0:poke252,208:poke253,0:poke254,48:sys16688
  143. 1296 ift$="2"thenpoke251,0:poke252,216:poke253,0:poke254,56:sys16688:rem"[141][158]
  144. 1400 [153]"loadreturn":[151]53280,0:[151]53281,0:[158]16384:[143] special irq-set on
  145. 1455 [153]"load                totototototototo
  146. 1457 print"poke:          [167]        [165]
  147. 1459 [153]"asc :          then        fn
  148. 1461 print"keys:   [152]       [167]        [165]
  149. 1463 [153]"               then        fn
  150. 1465 print"               [167]        [165]
  151. 1467 [153]"               then        fn
  152. 1469 print"               [167]        [165]
  153. 1471 [153]"               then        fn
  154. 1473 print"            [160][160][160][160][163][163][163][163][163][163][163][163][160]
  155. 1480 [141]1488:[137]1500
  156. 1488 [153][163]17)"pokestep(NULL)(NULL)step
  157. 1489 printtab(17)"f1f7
  158. 1490 [153][163]17)"step(NULL)(NULL)step":[142]
  159. 1500 [153]"":[129]r[178]1[164]3:[153]
  160. 1502 [153][163]4)"poke@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";:[130]:[129]r[178]1[164]8:[153]
  161. 1504 [153][163]4)"print#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";:[130]:[153]"
  162. 1510 m=1708:j=1.25
  163. 1511 forr=1708to1739:forw=0to280step40:poker+w,r-m+w/j:next:next
  164. 1580 pokev+39,6:pokev+27,1:p=0:poke16432,8:rem switch on irq-mode-change
  165. 1590 pokev,56:pokev+1,186:pokev+16,0:pokev+21,1:poke198,0:goto10:rem"[141][159]
  166. 2200 [129]r[178]16384[164]16722:[135]a:[151]r,a:[130]:[142]
  167. 2222 [131]120,169,127,141,13,220,169,34,141,20,3,169,64,141,21,3,169,27,141,17
  168. 2224 [131]208,169,162,141,18,208,169,129,141,26,208,88,96,0,169,1,141,25,208
  169. 2226 [131]173,18,208,16,20,173,24,208,9,8,141,24,208,169,0,141,18,208,76,188
  170. 2228 [131]254,0,0,0,0,173,24,208,41,246,141,24,208,173,22,64,141,18,208,162,0
  171. 2230 [131]173,52,6,157,52,6,157,92,6,157,132,6,232,224,32,208,242,76,49,234,0
  172. 2232 [131]0,0,0,255,255,255,255,255,255,255,255,51,23,1,52,26,19,5,255,53,18
  173. 2234 [131]4,54,3,6,20,24,55,25,7,56,2,8,21,22,57,9,10,48,13,11,15,14,43,16,12
  174. 2236 [131]45,46,58,0,44,28,42,59,255,255,61,30,47,49,31,255,50,32,255,17,255
  175. 2238 [131]255,0,0,46,10,28,20,18,14,21,26,29,33,34,37,42,36,39,38,41,62,17,13
  176. 2240 [131]22,30,31,9,23,25,12,45,48,50,54,57,60,56,59,8,11,16,19,24,27,32,49
  177. 2242 [131]40,47,43,44,55,35,56,59,8,11,16,19,24,27,32,45,50,47,53,44,55,49,10
  178. 2244 [131]28,20,18,14,21,26,29,33,34,37,42,36,39,38,41,62,17,13,22,30,31,9,23
  179. 2246 [131]25,12,40,43,43,54,49,60,37,33,22,46,26,40,36,48,48,39,62,18,12,13,41
  180. 2248 [131]10,14,17,9,29,34,42,25,30,38,46,21,20,23,31,28,0,0,0,0,0,120,165,1
  181. 2250 [131]41,251,133,1,160,0,162,0,177,251,145,253,200,208,249,230,252,230,254
  182. 2252 [131]232,224,8,208,240,165,1,9,4,133,1,88,96
  183.